$csv_file=$ARGV[0];
open(FH,"<$csv_file") or die;
my @in=<FH>;
chomp(@in);
close(FH);

my $total=0;
my $inside=0;
foreach my $line(@in){
		my @splitin = split ",",$line;
		#my $chr = $splitin[0];
		next if($splitin[0]=~/\_/ or $splitin[0]!~/^chr\S+/);
		$total++;
		$inside++ if $splitin[3] eq "1";
		#my $start = $splitin[1];
		#my $end = $splitin[2];
		#my $anno = "sample";
		#$anno = $splitin[3] if $splitin[3] ne "";
		#print OUT "$chr\t$anno\texon\t$start\t$end\t0\t+\t.\n";
	#	push(@out,"$splitin[0]\t$splitin[3]\t$splitin[4]\texon\t$splitin[5]\t$splitin[6]\n");
}

print "total:\t$total\tinside_region:\t$inside\n";